home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / misc / allma.zip / WHT-OPEN.SMM < prev    next >
INI File  |  1995-02-06  |  10KB  |  572 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [recfile]
  12.     
  13.     
  14.     1
  15.     0
  16.     24320
  17.     33564
  18.     3946
  19.     6144
  20. [prn]
  21.     
  22. [port]
  23.     LPT1:
  24. [lang]
  25.     1
  26. [fldnames]
  27.     Field1
  28.     Field2
  29.     Field3
  30.     Field4
  31.     Field5
  32.     Field6
  33.     Field7
  34.     Field8
  35. [desc]
  36.     Calls up Open icons
  37.     
  38.     
  39.     
  40.     
  41.     792130513
  42.     70
  43.     755985920
  44.     757
  45.     3
  46.     225
  47.     1473
  48.     5
  49.     9
  50.     
  51.     
  52.     
  53.     
  54.     
  55.     
  56.     1
  57. [fopts]
  58.     0
  59.     1
  60.     0
  61.     0
  62.     
  63.     
  64. [lnopts]
  65.     2
  66.     Body Text
  67.     1
  68. [docopts]
  69.     5
  70.     2
  71. [GramStyle]
  72.     Business Writing
  73. [lay]
  74.     Standard
  75.     513
  76.     [rght]
  77.         15840
  78.         12240
  79.         1
  80.         1440
  81.         1440
  82.         1
  83.         1440
  84.         1440
  85.         2
  86.         1
  87.         0
  88.         1
  89.         0
  90.         2
  91.         1
  92.         1440
  93.         10800
  94.         5
  95.         1
  96.         720
  97.         1
  98.         1440
  99.         1
  100.         2162
  101.         1
  102.         2883
  103.         1
  104.         3596
  105.     [hrght]
  106.     [lyfrm]
  107.         1
  108.         11200
  109.         0
  110.         0
  111.         12240
  112.         1440
  113.         0
  114.         1
  115.         3
  116.         1 0 0 0 0 0 0
  117.         0
  118.         0
  119.         1
  120.     [frmlay]
  121.         1440
  122.         12240
  123.         1
  124.         1440
  125.         144
  126.         1
  127.         360
  128.         1440
  129.         0
  130.         1
  131.         0
  132.         1
  133.         1
  134.         0
  135.         1
  136.         1440
  137.         10800
  138.         1
  139.         3
  140.         9360
  141.     [txt]
  142.  
  143. <+!>Created by Ashley <-!><+!>December 15, 1993<-!>
  144.  
  145. >
  146.     [frght]
  147.     [lyfrm]
  148.         1
  149.         13248
  150.         0
  151.         14400
  152.         12240
  153.         15840
  154.         0
  155.         1
  156.         3
  157.         1 0 0 0 0 0 0
  158.         0
  159.         0
  160.         2
  161.     [frmlay]
  162.         15840
  163.         12240
  164.         1
  165.         1440
  166.         0
  167.         1
  168.         14544
  169.         1440
  170.         0
  171.         1
  172.         0
  173.         1
  174.         1
  175.         0
  176.         1
  177.         1440
  178.         10800
  179.         2
  180.         2
  181.         4695
  182.         3
  183.         9360
  184.     [txt]
  185. >
  186. [elay]
  187. [l1]
  188.     0
  189. [pg]
  190.     3
  191.     38 71 2 32 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  192.     61 0 10 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  193.     93 0 52 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  194. [edoc]
  195. @Defines@<:#284,9360><:f240,2Times New Roman,0,0,0><+,>Define    MoveWindow()    DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)<-,>
  196.  
  197. @Defines@<:#284,9360><+,><:f240,2Times New Roman,0,0,0>Define    Get<-,><+,>Size()        DllCall("user,GetWindowRect,HHN",%1,%2)<-,><:f>
  198.  
  199. @Function@<:#288,9360><-!><+!>function <-!>begin(hdlg)
  200.  
  201. <:#284,9360>thisfile = getrunningmacrofile$()
  202.  
  203. <:#284,9360>metrics = getprofilestring$("wht-open", "Metrics", "{windir}amipro2.ini")
  204.  
  205. @If Endif@<:#284,9360>    if metrics != ""
  206.  
  207. <:#284,9360>        setdlgcallback(0, "{thisfile}!init")
  208.  
  209. @If Endif@<:#284,9360>    endif
  210.  
  211. <:#284,9360>setdlgcallback(20, "{thisfile}!curloc")
  212.  
  213. @If Endif@<+C><:#284,9360><:f240,2Times New Roman,0,0,0>DlgKeyInterrupt(<[>F1], "HelpFun")  ' This if F1<:f>
  214.  
  215. <:#284,9360>Box = DialogBox(".", "<:f240,2Times New Roman,0,0,0>Opewhat")
  216.  
  217. <:#284,9360>IF Box = -1
  218.  
  219. <:#284,9360>Message("Could not open dialog box; Exiting macro.")
  220.  
  221. <:#284,9360>EXIT FUNCTION
  222.  
  223. <:#284,9360>ELSEIF Box = 0
  224.  
  225. <:#284,9360>EXIT FUNCTION
  226.  
  227. <:#284,9360>ELSEIF Box = 3
  228.  
  229. <:#284,9360>call c:\amipro\macros\newnow.smm()
  230.  
  231. <:#284,9360>ELSEIF Box = 4
  232.  
  233. <:#284,9360>New
  234.  
  235. <:#284,9360>ELSEIF Box = 5
  236.  
  237. <:#284,9360>if GetOpenFileCount() << 0
  238.  
  239. <:#284,9360>    FileOpen
  240.  
  241. <:#284,9360>    elseif(SendKeys("<[>ctrlo]"))
  242.  
  243. <:#284,9360>    exit function    
  244.  
  245. <:#284,9360>    endif
  246.  
  247. <:#284,9360>ELSEIF Box = 6
  248.  
  249. <:#284,9360>call c:\amipro\macros\opendocs.smm()
  250.  
  251. <:#284,9360>ELSEIF Box=7
  252.  
  253. <:#284,9360>SendKeys("<[>altf]g")
  254.  
  255. <:#284,9360>ELSEIF Box=8
  256.  
  257. <:#284,9360>call crash()
  258.  
  259. <:#284,9360>ENDIF
  260.  
  261. <:#284,9360>END FUNCTION
  262.  
  263. <:#284,9360><-!>DIALOG    Opewhat
  264.  
  265. <:#568,9360>-2134900736    14    21    28    111    69    ""    "AmiDialog"    "Open what?"
  266.  
  267. <:#852,9360>6    3    15    15    3    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_fast.bmp"    0 
  268.  
  269. <:#852,9360>6    19    15    15    4    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_new.bmp"    0 
  270.  
  271. <:#852,9360>6    35    15    15    5    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_open.bmp"    0 
  272.  
  273. <:#852,9360>6    51    15    15    6    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_mult.bmp"    0 
  274.  
  275. <:#852,9360>91    35    10    10    7    1342373896    "button"    "c:\amipro\icons\dlgicos\ope_merg.bmp"    0 
  276.  
  277. <+@><:S+-1><:#568,9360>26    38    52    10    1004    1342177280    "static"    "'Open'<:> Dialog"    0 
  278.  
  279. <+@><:S+-1><:#568,9360>26    21    50    10    1005    1342177280    "static"    "'New' Dialog"    0 
  280.  
  281. <:#568,9360>26    7    46    10    1006    1342177280    "static"    "New/Defaults"    0 
  282.  
  283. <:#568,9360>84    12    24    12    2    1342373888    "button"    "Esc"    0 
  284.  
  285. <:#568,9360>26    54    47    10    1000    1342177280    "static"    "Multiple Docs"    0 
  286.  
  287. <:#568,9360>91    8    10    3    20    1342373888    "button"    ""    0 
  288.  
  289. <:#568,9360>86    45    20    9    1001    1342177280    "static"    "Merge"    0 
  290.  
  291. <:#852,9360>104    62    5    5    8    1342373896    "button"    "c:\amipro\icons\dlgicos\in_copy.bmp"    0 
  292.  
  293. <:#568,9360>0    1    111    68    1002    1342177287    "static"    ""    0 
  294.  
  295. <:#284,9360>END DIALOG
  296.  
  297. <:#284,9360><:f240,2Times New Roman,0,0,0>FUNCTION HelpFun(hdlg, key)
  298.  
  299. <:#284,9360><:f240,2Times New Roman,0,0,0>DialogBox(".","Helper")
  300.  
  301. @Function@<:#284,9360><+!><:f240,2Times New Roman,0,0,0>end function<-!><:f>
  302.  
  303. <:#284,9360>DIALOG    Helper
  304.  
  305. <:#568,9360>-2143289344    4    127    82    108    54    ""    ""    ""
  306.  
  307. <:#568,9360>39    38    33    12    2    1342373888    "button"    "&Close"    0 
  308.  
  309. <:#568,9360>91    44    12    7    1000    1342177280    "static"    "abb"    0 
  310.  
  311. <:#852,9360>10    7    90    26    1001    1342177281    "static"    "Click on the button that represents the command you wish to execute."    0 
  312.  
  313. <:#568,9360>1    1    106    52    1002    1342177287    "static"    ""    0 
  314.  
  315. <:#284,9360>END DIALOG
  316.  
  317. <:#284,9360>function init(hdlg)
  318.  
  319. <:#284,9360>metrics = getprofilestring$("wht-open", "Metrics", "{windir}amipro2.ini")
  320.  
  321. <:#284,9360>x = strfield$(metrics, 1, ",")
  322.  
  323. <:#284,9360>y = strfield$(metrics, 2, ",")
  324.  
  325. <:#284,9360>w = strfield$(metrics, 3, ",")
  326.  
  327. <:#284,9360>h = strfield$(metrics, 4, ",")
  328.  
  329. <:#284,9360>movewindow(hdlg, x, y, w, h, 1)
  330.  
  331. @Function@<:#284,9360>end function
  332.  
  333. @Function@<:#284,9360>function curloc(hdlg)
  334.  
  335. <:#284,9360>dim coord(4)
  336.  
  337. <:#284,9360>getsize(hdlg, &coord)
  338.  
  339. <:#284,9360>x = coord(1)
  340.  
  341. <:#284,9360>y = coord(2)
  342.  
  343. <:#284,9360>cx = coord(3)
  344.  
  345. <:#284,9360>cy = coord(4)
  346.  
  347. <:#284,9360>w = cx - x
  348.  
  349. <:#284,9360>h = cy - y
  350.  
  351. <:#284,9360>writeprofilestring("wht-open", "Metrics", strcat$(x, ",", y, ",", w, ",", h), "{windir}amipro2.ini")
  352.  
  353. <+@><:#284,9360>end function
  354.  
  355. <:f240,2Times New Roman,255,255,255>
  356.  
  357. <:f240,2Times New Roman,255,255,255>FUNCTION crash()
  358.  
  359. <:f240,2Times New Roman,255,255,255>DialogBox(".","crash")
  360.  
  361. @Function@<:f240,2Times New Roman,255,255,255>End Function
  362.  
  363. <:f240,2Times New Roman,255,255,255>DIALOG    crash
  364.  
  365. <:f240,2Times New Roman,255,255,255>-2134376448    6     91    25    155    189    ""    ""    "Toolbar Macros by:"
  366.  
  367. <:f240,2Times New Roman,255,255,255>0    1    155    188    1002    1342177289    "static"    ""    0 
  368.  
  369. <:f240,2Times New Roman,255,255,255>1    2    153    186    1002    1342177289    "static"    ""    0 
  370.  
  371. <:f240,2Times New Roman,255,255,255>2    3    151    184    1002    1342177287    "static"    ""    0 
  372.  
  373. <:f240,2Times New Roman,255,255,255>3    4    149    182    1002    1342177287    "static"    ""    0 
  374.  
  375. <:f240,2Times New Roman,255,255,255>5    6    145    177    1002    1342177289    "static"    "text"    0 
  376.  
  377. <:f240,2Times New Roman,255,255,255>6    7    147    160    1001    1342177290    "static"    "c:\amipro\icons\dlgicos\in_cred.bmp"    0 
  378. <:f>
  379.  
  380. <:#284,9360><+*><:f240,2Times New Roman,255,255,255>END DIALOG<-*><:f>
  381.  
  382. >
  383.  
  384. [Embedded]
  385. 00006865
  386. >
  387. [macsum] 8
  388. begin 0 1 5 2
  389. Opewhat 811 0 -1 34
  390. HelpFun 1739 2 1 51
  391. Helper 1782 0 -1 54
  392. init 2083 1 7 61
  393. curloc 2331 1 9 69
  394. crash 2609 0 1 81
  395. crash 2649 0 -1 84
  396. [macse]
  397. 14 begin
  398. 0 802
  399. 13
  400. 8 2
  401. 0 286 "wht-open" "Metrics" "{4}amipro2.ini"
  402. 13
  403. 8 3
  404. 6 3
  405. 7 ""
  406. 18 1
  407. 11 00000129
  408. 0 41 0 "{2}!init"
  409. 0 41 20 "{2}!curloc"
  410. 0 47 112 "HelpFun"
  411. 0 26 "." "Opewhat"
  412. 13
  413. 8 5
  414. 6 5
  415. 5 -1
  416. 18 0
  417. 11 00000304
  418. 0 3 "Could not open dialog box; Exiting macro."
  419. 6 1
  420. 15
  421. 9
  422. 10 00000799
  423. 6 5
  424. 5 0
  425. 18 0
  426. 11 00000358
  427. 6 1
  428. 15
  429. 9
  430. 10 00000799
  431. 6 5
  432. 5 3
  433. 18 0
  434. 11 00000432
  435. 16 c:\amipro\macros\newnow.smm
  436. 10 00000799
  437. 6 5
  438. 5 4
  439. 18 0
  440. 11 00000482
  441. 24 101
  442. 10 00000799
  443. 6 5
  444. 5 5
  445. 18 0
  446. 11 00000626
  447. 0 1050
  448. 13
  449. 5 0
  450. 18 5
  451. 11 00000568
  452. 24 102
  453. 10 00000613
  454. 0 36 "[16463]"
  455. 13
  456. 11 00000613
  457. 6 1
  458. 15
  459. 9
  460. 10 00000799
  461. 6 5
  462. 5 6
  463. 18 0
  464. 11 00000702
  465. 16 c:\amipro\macros\opendocs.smm
  466. 10 00000799
  467. 6 5
  468. 5 7
  469. 18 0
  470. 11 00000760
  471. 0 36 "[8262]g"
  472. 10 00000799
  473. 6 5
  474. 5 8
  475. 18 0
  476. 11 00000799
  477. 16 crash
  478. 6 1
  479. 15
  480. 9
  481. DIALOG Opewhat
  482. -2134900736 14 21 28 111 69 "" "AmiDialog" "Open what?" 
  483. 6 3 15 15 3 1342373896 "button" "c:\amipro\icons\dlgicos\ope_fast.bmp" 0 
  484. 6 19 15 15 4 1342373896 "button" "c:\amipro\icons\dlgicos\ope_new.bmp" 0 
  485. 6 35 15 15 5 1342373896 "button" "c:\amipro\icons\dlgicos\ope_open.bmp" 0 
  486. 6 51 15 15 6 1342373896 "button" "c:\amipro\icons\dlgicos\ope_mult.bmp" 0 
  487. 91 35 10 10 7 1342373896 "button" "c:\amipro\icons\dlgicos\ope_merg.bmp" 0 
  488. 26 38 52 10 1004 1342177280 "static" "'Open' Dialog" 0 
  489. 26 21 50 10 1005 1342177280 "static" "'New' Dialog" 0 
  490. 26 7 46 10 1006 1342177280 "static" "New/Defaults" 0 
  491. 84 12 24 12 2 1342373888 "button" "Esc" 0 
  492. 26 54 47 10 1000 1342177280 "static" "Multiple Docs" 0 
  493. 91 8 10 3 20 1342373888 "button" "" 0 
  494. 86 45 20 9 1001 1342177280 "static" "Merge" 0 
  495. 104 62 5 5 8 1342373896 "button" "c:\amipro\icons\dlgicos\in_copy.bmp" 0 
  496. 0 1 111 68 1002 1342177287 "static" "" 0 
  497. 14 HelpFun
  498. 0 26 "." "Helper"
  499. 6 2
  500. 15
  501. 9
  502. DIALOG Helper
  503. -2143289344 4 127 82 108 54 "" "" "" 
  504. 39 38 33 12 2 1342373888 "button" "&Close" 0 
  505. 91 44 12 7 1000 1342177280 "static" "abb" 0 
  506. 10 7 90 26 1001 1342177281 "static" "Click on the button that represents the command you wish to execute." 0 
  507. 1 1 106 52 1002 1342177287 "static" "" 0 
  508. 14 init
  509. 0 286 "wht-open" "Metrics" "{3}amipro2.ini"
  510. 13
  511. 8 2
  512. 0 20 "{2}" 1 ","
  513. 13
  514. 8 4
  515. 0 20 "{2}" 2 ","
  516. 13
  517. 8 5
  518. 0 20 "{2}" 3 ","
  519. 13
  520. 8 6
  521. 0 20 "{2}" 4 ","
  522. 13
  523. 8 7
  524. 0 284 "User,MoveWindow,HHHHHHA" "{0}" "{4}" "{5}" "{6}" "{7}" 1
  525. 6 1
  526. 15
  527. 9
  528. 14 curloc
  529. 5 4
  530. 21 2 [X]
  531. 0 284 "user,GetWindowRect,HHN" "{0}" &2
  532. 5 1
  533. 22 2
  534. 8 3
  535. 5 2
  536. 22 2
  537. 8 4
  538. 5 3
  539. 22 2
  540. 8 5
  541. 5 4
  542. 22 2
  543. 8 6
  544. 6 5
  545. 6 3
  546. 3 1
  547. 8 7
  548. 6 6
  549. 6 4
  550. 3 1
  551. 8 8
  552. 0 16 "{3}" "," "{4}" "," "{7}" "," "{8}"
  553. 13
  554. 0 287 "wht-open" "Metrics" [X] "{9}amipro2.ini"
  555. 6 1
  556. 15
  557. 9
  558. 14 crash
  559. 0 26 "." "crash"
  560. 6 0
  561. 15
  562. 9
  563. DIALOG crash
  564. -2134376448 6 91 25 155 189 "" "" "Toolbar Macros by:" 
  565. 0 1 155 188 1002 1342177289 "static" "" 0 
  566. 1 2 153 186 1002 1342177289 "static" "" 0 
  567. 2 3 151 184 1002 1342177287 "static" "" 0 
  568. 3 4 149 182 1002 1342177287 "static" "" 0 
  569. 5 6 145 177 1002 1342177289 "static" "text" 0 
  570. 6 7 147 160 1001 1342177290 "static" "c:\amipro\icons\dlgicos\in_cred.bmp" 0 
  571. 00006890
  572.